﻿Imports Microsoft.VisualBasic
Imports System.Data

Public Class clsMarca
    Inherits clsDatos

    Function Get_Marcas(ByVal strGrupo As String) As DataTable

        'Return GetDatos("select * from artcatMarca order by marca")
        Return GetDatos("select distinct vacamarca marca from art where grupo='" & strGrupo & "' order by vacamarca")

    End Function

    Function Get_Marcas(ByVal strGrupo As String, ByVal strMarca As String) As DataTable

        Return GetDatos("Select distinct vacamarca marca from art where grupo='" & strGrupo & "' and vacamarca like '" & strMarca & "'")

    End Function

End Class
